home *** CD-ROM | disk | FTP | other *** search
/ Ozsi 9 / Ozsi_09_1998_Tide_Side_A.d64 / dir-trakr.v2.[t] (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1998-01-01  |  1.9 KB  |  65 lines
  1. 10 poke768,226:poke769,252
  2. 100 open4,4,23:close4:dimt$(4):gosub800
  3. 110 print"[158]    insert a disk and press <return>"
  4. 115 geta$:ifa$<>chr$(13)then115
  5. 120 data 169,0,162,4,149,98,202,16,251,169,160,133,97,162,2,32,198,255
  6. 130 data 230,101,208,10,230,100,208,6,230,99,208,2,230,98,32,228,255,165,144
  7. 140 data 240,235,32,204,255,198,97,6,101,38,100,38,99,38,98,16,244,96
  8. 150 forj=860to914:readx:pokej,x:nextj
  9. 160 data "xxx","seq","prg","usr","rel"
  10. 170 forj=0to4:readt$(j):next
  11. 180 input"    printer (y/n)";z$:z=3
  12. 185 ifleft$(z$,1)="n"then220
  13. 190 ifleft$(z$,1)="y"thenz=4:print:input"    date[160][160]*[157][157][157]";d$
  14. 220 open4,z:open1,8,15,"i0":close1
  15. 230 g$="                 "
  16. 240 open1,8,3,"$0"
  17. 250 forj=1to142:get#1,a$:nextj
  18. 260 forj=1to16:get#1,a$:ifa$=chr$(160)goto280
  19. 270 n$=n$+a$
  20. 280 nextj:get#1,a$,a$
  21. 290 forj=1to2:get#1,a$:ifa$=chr$(160)goto310
  22. 300 i$=i$+a$
  23. 310 nextj
  24. 320 forj=1to92:get#1,a$:nextj:gosub800
  25. 325 ifz=4thenprint"       output diverted to printer."
  26. 330 ifz=4thenprint#4,"[158]dir tracker v1.1 tomz";d$:print#4
  27. 340 print:print#4,"    disk: ";n$;"    id: ";i$:print
  28. 341 print#4,"tr sc  typ  blks  file name   s.address[146]"
  29. 342 print#4,"---------------------------------------"
  30. 350 m=m+1:get#1,k$,t$,s$:ifs$=""thens$=chr$(0)
  31. 360 f$="":forj=1to16:get#1,a$:ifa$=chr$(160)goto380
  32. 370 f$=f$+a$:ift$=""thent$=chr$(0)
  33. 380 nextj
  34. 390 forj=1to10:get#1,a$:nextj
  35. 400 l=0:ifa$<>""thenl=asc(a$)
  36. 410 get#1,a$:ifm<8thenget#1,a$,a$:goto430
  37. 420 m=0
  38. 430 sw=st:ifk$=""goto640
  39. 440 k=asc(k$)-128:ifk<1ork>4thenk=0
  40. 460 h$=mid$(str$(asc(t$)),2):print#4,left$(g$,2-len(h$));h$;
  41. 470 h$=mid$(str$(asc(s$)),2):print#4,left$(g$,3-len(h$));h$;"  ";
  42. 480 print#4,t$(k);" ";
  43. 490 h$=mid$(str$(l),2):print#4,left$(g$,4-len(h$));h$;"  ";
  44. 500 print#4,f$;left$(g$,17-len(f$));
  45. 510 ifk=0goto630
  46. 520 ifk=2orf=1thenopen2,8,4,"0:"+f$+","+t$(k)+",r"
  47. 530 a=0:ifk<>2goto570
  48. 540 get#2,a$,b$:a=0:ifa$<>""thena=asc(a$)
  49. 550 b=0:ifb$<>""thenb=asc(b$)
  50. 560 gosub700
  51. 570 iff=0goto620
  52. 580 poke785,92:poke786,3:a=a+usr(0)
  53. 590 ifk<>2thenprint#4,a;"bytes";:goto620
  54. 600 print#4," ";:a%=a/256:a=a-a%*256:b=b+a%
  55. 610 gosub700
  56. 620 close2
  57. 630 print#4
  58. 640 ifsw=0goto350
  59. 650 close1:close4:goto650
  60. 700 x=b/16:gosub710:x=a/16
  61. 710 forj=1to2:x%=x:x=(x-x%)*16:ifx%>9thenx%=x%+7
  62. 720 print#4,chr$(x%+48);:nextj:return
  63. 800 poke53280,0:poke53281,0:print"[147][151]             [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  64. 810 print"dir tracker v2.1 coded by  tomz/tide/tdr[146]":return
  65.